home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group01a.txt / 000063_icon-group-sender _Mon Jun 19 12:22:29 2000.msg < prev    next >
Internet Message Format  |  2002-01-03  |  4KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id MAA10487
  4.     for icon-group-addresses; Mon, 19 Jun 2000 12:20:34 -0700 (MST)
  5. Message-Id: <200006191920.MAA10487@baskerville.CS.Arizona.EDU>
  6. From: Lloyd Uhler <luhler@excel.com>
  7. To: "'icon-group@cs.arizona.edu'" <icon-group@optima.CS.Arizona.EDU>
  8. Subject: RE: Questions on ICON
  9. Date: Mon, 19 Jun 2000 10:10:01 -0500
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12. Content-Length: 3703
  13.  
  14. Any fix for textbox input in VIB?
  15.  
  16. Thanks.
  17.  
  18. > -----Original Message-----
  19. > From:    Lloyd Uhler 
  20. > Sent:    Wednesday, April 26, 2000 8:52 AM
  21. > To:    'icon-group@cs.arizona.edu'
  22. > Subject:    Questions on ICON
  23. > 
  24. > 1) For Version 9.3.1 on WIN NT and WIN 98, textbox input does not work for
  25. > VIB generated code as follows:
  26. > 
  27. > ##########################################################################
  28. > ##
  29. > #
  30. > #    File:     C:\Icon9.3\vib_tst.icn
  31. > #
  32. > #    Subject:  Program to ...
  33. > #
  34. > #    Author:   
  35. > #
  36. > #    Date:     January 21, 1999
  37. > #
  38. > ##########################################################################
  39. > ##
  40. > #
  41. > #
  42. > #
  43. > ##########################################################################
  44. > ##
  45. > #
  46. > #  Requires:
  47. > #
  48. > ##########################################################################
  49. > ##
  50. > #
  51. > #  Links: vsetup
  52. > #
  53. > ##########################################################################
  54. > ##
  55. > 
  56. > #  This vib interface specification is a working program that responds
  57. > #  to vidget events by printing messages.  Use a text editor to replace
  58. > #  this skeletal program with your own code.  Retain the vib section at
  59. > #  the end and use vib to make any changes to the interface.
  60. > 
  61. > link vsetup
  62. > 
  63. > procedure main(args)
  64. >    local vidgets, root, paused
  65. > 
  66. >    (WOpen ! ui_atts()) | stop("can't open window")
  67. >    vidgets := ui()                # set up vidgets
  68. >    root := vidgets["root"]
  69. > 
  70. >    paused := 1                    # flag no work to do
  71. >    repeat {
  72. >       # handle any events that are available, or
  73. >       # wait for events if there is no other work to do
  74. >       while (*Pending() > 0) | \paused do {
  75. >          ProcessEvent(root, QuitCheck)
  76. >          }
  77. >       # if <paused> is set null, code can be added here
  78. >       # to perform useful work between checks for input
  79. >       }
  80. > end
  81. > 
  82. > procedure text_input_cb1(vidget, value)
  83. > #    write("value = ", value)
  84. >    return
  85. > end
  86. > 
  87. > #===<<vib:begin>>===    modify using vib; do not remove this marker line
  88. > procedure ui_atts()
  89. >    return ["size=600,378", "bg=#C0C0C0"]
  90. > end
  91. > 
  92. > procedure ui(win, cbk)
  93. > return vsetup(win, cbk,
  94. >    [":Sizer:::0,0,600,378:",],
  95. >    ["button1:Button:regular::270,349,32,20:OK",button_cb1],
  96. >    ["text_input1:Text::46:95,111,367,20:Enter Your
  97. > Name:\\=",text_input_cb1],
  98. >    )
  99. > end
  100. > #===<<vib:end>>===    end of section maintained by vib
  101. > procedure button_cb1(vidget, value)
  102. > #
  103. > 
  104. > #  write("button_cb1")
  105. > #
  106. > # This does not work with the original viface module
  107. > # The local one has been revised to detect Window closure
  108. > # and do this without error. This will return to the statement
  109. > # after GetEvents. The program can then process or do what it
  110. > # needs with the results for the GUI data capture. Data values
  111. > # can be inserted into global variables so they are available
  112. > # to the rest of the program.
  113. > #
  114. > #  WClose( &window )
  115. >   return
  116. > end
  117. > 
  118. > 2) There seems to be no way to gather a set of file names from a specified
  119. > directory:
  120. >     (System & popen do not work the same as command-line version of ICON
  121. > (Nticont, Nticonx)).
  122. >     (F.F and pipe.001 are empty)
  123. > 
  124. >  link graphics, dialog, popen, xio
  125. > 
  126. >  procedure main()
  127. > #
  128. > #
  129. > # the 45 is the width
  130. > #
  131. >   txt := TextDialog("Specify Directory Path:",  "Path", "C:\\temp" , 45)
  132. > 
  133. >   Path := dialog_value[1]
  134. >   write("Path = ", Path)
  135. > 
  136. >   cmd := "Dir /b/l "
  137. > #
  138. > # See if F.F Generated fro BAT File
  139. > #
  140. >   system( "CALL C:\\ICON9.3\\WDIR.CMD" || Path )
  141. > #
  142. > # Try popen to get file of file names
  143. > #
  144. >   fin := popen( cmd || Path, "r")
  145. >   while line := trim(read(fin)) do write(line)
  146. > 
  147. >   pclose(fin)
  148. > 
  149. >  end
  150. > 
  151. > REM
  152. > REM Wdir.BAT
  153. > REM
  154. > REM Purpose: Directory Listing
  155. > REM
  156. > DIR /b/l %1 > F.F
  157.